// Copyright (c) 2009 Mike Haight, Andy Kipp
//
// Permission is hereby granted, free of charge, to any person
// obtaining a copy of this software and associated documentation
// files (the "Software"), to deal in the Software without
// restriction, including without limitation the rights to use,
// copy, modify, merge, publish, distribute, sublicense, and/or sell
// copies of the Software, and to permit persons to whom the
// Software is furnished to do so, subject to the following
// conditions:
//
// The above copyright notice and this permission notice shall be
// included in all copies or substantial portions of the Software.
//
// THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
// EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES
// OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
// NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT
// HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY,
// WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING
// FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR
// OTHER DEALINGS IN THE SOFTWARE.

#include "stdafx.h"

using namespace Microsoft::Scripting;
using namespace Microsoft::Scripting::Hosting;

ScriptObject::ScriptObject(void)
{
}


ScriptObject^ ScriptObject::Create(String^ argClassName, System::Type ^ argType)
{
    ScriptObject^ object;

    try
    {
        // Get Engine's ObjectOperations
        ObjectOperations^ operations = ScriptingEngine::Engine->Operations;

        // Get Class
        Object^ cls = ScriptingEngine::Scope->GetVariable(argClassName);

        // Create Instance of the Class 
        Object^ instance = operations->Call(cls);

        if (instance != nullptr)
        {
            object = (ScriptObject^)operations->ConvertTo(instance, argType);
            object->mInstance = instance;
        }
    }
    catch (Exception ^ ex)
    {
        smLogger->ErrorException("Error creating ScriptObject: " + argClassName + ".", ex);
    }

    // Return Object
    return object;
}


Object^ ScriptObject::Invoke(String^ argMethodName)
{
    return ScriptObject::Invoke(argMethodName, nullptr);
}


Object^ ScriptObject::Invoke(String^ argMethodName, array<Object^>^ argParameters)
{
    Object^ retval;

    try
    {
        // Get Engine's ObjectOperations
        ObjectOperations^ operations = ScriptingEngine::Engine->Operations;

        // Get Method
        Object^ method = operations->GetMember(mInstance, argMethodName);

        if (argParameters != nullptr)
        {
            // Call Method
            retval = operations->Call(method, argParameters);
        }
        else
        {
            // Call Method
            retval = operations->Call(method);
        }
    }
    catch (Exception^ ex)
    {
        smLogger->ErrorException("Error invoking method: " + argMethodName + ".", ex);
    }

    // Return Retval
    return retval;
}